home *** CD-ROM | disk | FTP | other *** search
/ Power Bytes: Money & Finance / PowerBytes Money and Finance CD-ROM 01 / PowerBytes Money and Finance CD-ROM 01.iso / Demos / MacSmurf Demo / Sample Designs / ADVANCED CALCS next >
Encoding:
Text File  |  1986-08-13  |  3.0 KB  |  66 lines  |  [TEXT/SURF]
  1. $THESE CALCULATIONS REQUIRE UNITS TO BE SET TO METRES
  2.  
  3. $ CALCULATE INTERMEDIATE RESULTS HYDROSTATICS
  4. v1=((sa0+sa10)*0.5)+((sa1+sa9)*1.5)+((sa0.5+sa3+sa5+sa7+sa9.5)*2)+((sa2+sa4+sa6+sa8)*4)
  5. v2=(v1*Spacing)/3
  6. Lb=sa0.5+(sa1*1.5)+(sa2*8)+(sa3*6)+(sa4*16)+(sa5*10)+(sa6*24)+(sa7*14)+(sa8*32)+(sa9*13.5)+(sa9.5*19)+(sa10*5) 
  7. b1=((wlb0+wlb10)*0.5)+((wlb1+wlb9)*1.5)+((wlb0.5+wlb3+wlb5+wlb7+wlb9.5)*2)+((wlb2+wlb4+wlb6+wlb8)*4)
  8. Vb=(((sa0*cav0)+(sa10*cav10))*0.5)+(((sa1*cav1)+(sa9*cav9))*1.5)+(((sa0.5*cav0.5)+(sa3*cav3)+(sa5*cav5)+(sa7*cav7)+(sa9.5*cav9.5))*2)+(((sa2*cav2)+(sa4*cav4)+(sa6*cav6)+(sa8*cav8))*4)
  9. ws=((gir0+gir10)*0.5)+((gir1+gir9)*1.5)+((gir0.5+gir3+gir5+gir7+gir9.5)*2)+((gir2+gir4+gir6+gir8)*4)
  10. Lp=((dr0+dr10)*0.5)+((dr1+dr9)*1.5)+((dr0.5+dr3+dr5+dr7+dr9.5)*2)+((dr2+dr4+dr6+dr8)*4)
  11. Lf=wlb0.5+(wlb1*1.5)+(wlb2*8)+(wlb3*6)+(wlb4*16)+(wlb5*10)+(wlb6*24)+(wlb7*14)+(wlb8*32)+(wlb9*13.5)+(wlb9.5*19)+(wlb10*5)
  12. L  =spacing*10
  13.  
  14. $ CALCULATE FINAL VALUES HYDROSTATICS
  15. Length water line      m        = L
  16. Max cross section   sq m      = maxa
  17. Hull draught              m        = maxd
  18. Beam waterline         m        = maxb
  19. Displacement            kg        =  v2 * 1025
  20. LCB aft st0  lwl         m        = (Lb/v1)*Spacing
  21. VCB   below dwl         m        = Vb/v1
  22. LCF aft st0                 m        = (Lf/b1)*Spacing
  23. Wetted surface area sq m     =  ws* Spacing/3
  24. Waterplane area      sq m      = b1*Spacing/3  
  25. Lateral plane area    sq m     = Lp*Spacing/3
  26. LCB  as percent of lwl          = 10* (Lb/v1)
  27. LCF as percent of lwl            = 10*(Lf/b1)
  28. Sinkage               kg per cm   = (b1*Spacing/3)*10.25
  29. Prismatic coefficient            =  v2/ (MaXa*L)
  30. Block coefficient                   =  v2/(L*maxb*maxd)
  31. Water plane coefficient        =  b1/(30*maxb)
  32. Midship area coefficient       =  maxa/(maxb*maxd)
  33. Lateral plane coefficient       = Lp/(30*maxd)
  34.  
  35. $ CALCULATE INTERMEDIATE RESULTS STABILITY
  36. $ ENTER V.C.G. about DWL
  37. VCG=0
  38.  
  39. Ilf=((wlb0+wlb10)*12.5)+((wlb0.5+wlb9.5)*40.5)+((wlb1+wlb9)*24)+((wlb2+wlb8)*36)+((wlb3+wlb7)*8)+((wlb4+wlb6)*4)
  40. Il5=(Ilf*(spacing^3))/3
  41. WPA=b1*spacing/3
  42. LCF=((Lf/b1)*spacing)-(spacing*5)
  43. It1=((((wlb0*0.5)^3)+((wlb10*0.5)^3))*0.5)+((((wlb0.5*0.5)^3)+((wlb3*0.5)^3)+((wlb5*0.5)^3)+((wlb7*0.5)^3)+((wlb9.5*0.5)^3))*2)+((((wlb1*0.5)^3)+((wlb9*0.5)^3))*1.5)+((((wlb2*0.5)^3)+((wlb4*0.5)^3)+((wlb6*0.5)^3)+((wlb8*0.5)^3))*4)
  44. Il=Il5-(WPA*(LCF^2))
  45. It=It1*spacing*2/9
  46. BMl=Il/v2
  47. BMt=It/v2
  48. KB=maxd+(vb/v1)
  49. KG=maxd+VCG
  50. GMl=KB+BMl-KG
  51. GMt=KB+BMt-KG
  52.  
  53. $ CALCULATE RESULTS STABILITY DATA
  54. Longitudinal Inertia  about LCF             m4     =Il5-(WPA*(LCF^2))
  55. Transverse Inertia about centreline     m4     =(It1*spacing*2)/9
  56. BM longitudinal                                     m        =Il/v2
  57. BM transverse                                       m        =It/v2
  58. GM longitudinal                                      m       =KB+BMl-KG
  59. GM transverse                                        m       =KB+BMt-KG
  60. Moments to change trim 1 cm         kgm cm    =((v2*1025)*GMl)/(100*L)
  61. Righting Moment at 1 degree           kgm          =v2*1025*GMt*0.0175
  62. Vertical Centre Gravity above DWL       m        =VCG
  63.  
  64.  
  65.  
  66.